Sub ڵ()

    Dim ù As Range
    Dim հ As Single

    With Sheets("ȭ 1")
    
        If .EditBoxes(1).Text <> "" Then
        
            Set ù = Range(.EditBoxes(1).Text)
            
            հ = WorksheetFunction.Sum(ù)
        
            .Labels(2).Caption = "հ : " & Format(հ, "#,###")
        
        End If
    
    End With

End Sub